home *** CD-ROM | disk | FTP | other *** search
/ ECTS 1998 Ubi Soft Enter…inment Press Kit (Europe) / ECTS 1998 Ubi Soft Entertainment Press Kit (Europe).bin / text / CORPO.cst / 00075_Script_TEXT CONTROL < prev    next >
Text File  |  1998-08-18  |  1KB  |  55 lines
  1. on mouseWithin me
  2.   if the name of member the member of sprite ¼
  3.              the currentspritenum = "SHORT" then
  4.     cursor 260
  5.   else
  6.     cursor 280
  7.   end if
  8. end
  9.  
  10. on mouseLeave me
  11.   cursor -1
  12. end
  13.  
  14. on mouseDown me
  15.   if the name of member the member of sprite ¼
  16.                   the currentspritenum = "SHORT" then
  17.     cursor 290
  18.     set MonTexte to the text of member "CHAOS F"
  19.     set NbLines to the number of lines in MonTexte
  20.     
  21.     if NbLines < 18 then abort
  22.     
  23.     repeat while the mouseDown
  24.       set Atester to the mouseV
  25.       
  26.       if Atester < 219 then
  27.         set the locV of sprite the currentspritenum to 218
  28.         set the text of member "FENETRE" to line 1 to 18 of MonTexte
  29.       else if Atester > 537 then
  30.         set the locV of sprite the currentspritenum to 538
  31.         set the text of member "FENETRE" to line (NbLines - 17)¼
  32.                to NbLines of MonTexte
  33.       else
  34.         set Moyenne to integer(float(Atester - 219)/318.0 *¼
  35.                    float(NbLines)) + 1
  36.         set the locV of sprite the currentspritenum to the mouseV
  37.         set the text of member "FENETRE" to line Moyenne to ¼
  38.                (Moyenne + 19) of MonTexte
  39.       end if
  40.       updateStage
  41.     end repeat
  42.   else
  43.     if the name of member the currentspritenum = "UP" then
  44.       set Loi to 1
  45.     else
  46.       set Loi to -1
  47.     end if
  48.     repeat while the mouseDown
  49.       
  50.     end repeat
  51.   end if
  52.   
  53.   
  54. end
  55.